home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / comm / tcp / Tango.lha / tango / Install_Tango next >
Text File  |  2001-02-15  |  6KB  |  190 lines
  1. ;Tango 1.0 installation script
  2. (set #intro (cat "\n\nWelcome to Tango\n\nCopyright © 1999\n\nSören Forsberg\n") )
  3. (set #info (cat "\n\nThis installer will\n\ninstall Tango in Samba:\n\na new directory 'Tango' will be created.\n\n") )
  4. (message #intro)
  5. (welcome) 
  6. (message #info)
  7.  
  8. (if (= (exists "samba:tango") 0 )  (makedir "Samba:Tango") )
  9.  
  10. ;copy main
  11. (copyfiles (source "Tango")   (dest "samba:Tango")    (infos) (all))
  12.  
  13. ;copy drawer icon
  14. (copyfiles    (prompt "Copying drawer icon")    (source "Tango.info")    (dest "Samba:") )
  15.  
  16. ;copy catalogs
  17. ;(copyfiles (source "Locale")   (dest "sys:Locale")    (infos) (all))
  18.  
  19. (set #catnofind "Can not find this catalog in this  archive.")
  20. (set #whatcat "\nTango has no internal catalog.\nSelect the Language catalog you wish to install.\nThat language has to be selected in Prefs:Locales ")
  21. (set #whatcathelp "If your language is not among the choises,\nYou must choose another language.")
  22.  
  23.  
  24.  
  25. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  26. (set lan 0)
  27. (if (= "english" lanfound) (set lan 0))  (if (= "deutsch"  lanfound) (set lan 1))
  28. (if (= "svenska" lanfound) (set lan 2)) (if (= "español" lanfound) (set lan 3)) 
  29. (if (= "russian" lanfound) (set lan 3)) 
  30. (set #English    "English")  (set #Deutsch    "Deutsch")
  31. (set #Svenska    "Svenska")  (set #Español    "Español")
  32. (set #Russian    "Russian")  
  33.  
  34. (if (> (exists ("ENV:i.høld.0")) 0)   (set l0 (getenv "ENV:i.høld.0")) ) 
  35. (if (> (exists ("ENV:i.høld.1")) 0)   (set l1 (getenv "ENV:i.høld.1")) )
  36. (if (> (exists ("ENV:i.høld.2")) 0)   (set l2 (getenv "ENV:i.høld.2")) )
  37. (run "delete env:i.høld.#?")
  38. (set catalog (askchoice (choices  "English" "Deutsch" "Svenska" "Español" "Russian")            
  39.                         (prompt #whatcat )
  40.                         
  41.                     (help   #whatcathelp)
  42.                         (default lan)
  43.              )
  44. )
  45.  
  46. (if (= catalog 0)  (set #lcat #English))  
  47. (if (= catalog 1)  (set #lcat #Deutsch))
  48. (if (= catalog 2)  (set #lcat #Svenska))  
  49. (if (= catalog 3)  (set #lcat #Español))  
  50. (if (= catalog 4)  (set #lcat #Russian))  
  51.  
  52. (if (<> #lcat "N/A")
  53.  (
  54.       (if (> (exists (cat "Catalogs/" #lcat "/tango.catalog")) 0)
  55.       (
  56.         (
  57.          (if (< (exists "Samba:Tango/Catalogs") 2) (makedir "Samba:Tango/Catalogs") )
  58.          (if (< (exists (cat "Samba:Tango/Catalogs/" #lcat)) 2) (makedir (cat "Samba:Tango/Catalogs/" #lcat)) )
  59.          (copyfiles (source (cat "Catalogs/" #lcat )) (dest (cat "Samba:Tango/Catalogs/" #lcat)) (all) )
  60.         )
  61.   
  62.  
  63.       )
  64.  
  65.  
  66.   (message (cat "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  67.   )
  68.  
  69.  
  70. ); End if Catalog dir
  71.   (message (cat "Error:" "\nCatalogs/" #lcat "/tango.catalog\n\n" #catnofind))
  72. ); 
  73.  
  74. (if (exists "c:defaultbrowser")
  75.         (message "OBSOLETE!\n\nYou have defaultbrowser installed.\n\n"
  76.         "Defaultbrowser is discontinued and will be removed \n"
  77.         "from your system. Tango now uses openurl instead.")
  78. )
  79. (run "delete c:defaultbrowser")
  80. (run 'delete "sys:prefs/default browser.info"')
  81. (run "delete envarc:defaultbrowser")
  82.  
  83. (set #isthere (cat "You have Tango installed."))
  84. (run "status >ENV:Tango_inst com samba:tango/tango")
  85. (if (> (exists ("env:Tango_inst")) 0) (set tangoon (getenv "Tango_inst")) )
  86. (if (<> tangoon "") (set #isthere (cat "You have Tango installed and running.\nPlease shutdown Tango before proceeding. ")) )
  87.  
  88. (if (exists "ENV:tango.prefs")
  89.     (
  90.         (message (cat #isthere"\n\n"
  91.         "All librarys and locales\n"
  92.         "will now be flushed."))
  93.         (run "avail flush > NIL:")
  94.  
  95.         
  96.     )
  97. )
  98.  
  99. (run "status >ENV:Tango_inst com samba:tango/tango")
  100. (if (> (exists ("env:Tango_inst")) 0) (set tangoon (getenv "Tango_inst")) )
  101. (if (<> tangoon "") (message "You didn't shutdown Tango.\nBefore you start Tango you should:\nReboot, make 'Avail flush'\nor run the installer again!"))
  102.  
  103.  
  104. ;BEGIN Share 1.0 installation script
  105. (set osver (/ (getversion "LIBS:version.library") 65536))
  106. (if (= osver 44) (set workbench "3.5")) 
  107.  
  108.  
  109. ;(set #bye (cat "\nShare Install Complete!\nYou will find share in Samba:\n" ))
  110. (set #share (cat "\n\nThe new Share utility will now be installed.\n\nThis will install Share in C:\n\n") )
  111.  
  112. (message #share)
  113.  
  114. ;copy share
  115. (copyfiles
  116.     (prompt "Copying share")
  117.     (source "Tango/Extras/Share/Share")
  118.     (dest "C:")
  119. )
  120. (copyfiles
  121.     (prompt "Copying icon")
  122.     (source "Tango/Extras/Share/Share.info")
  123.     (dest "C:")
  124. )
  125.  
  126. (if (> osver 44)
  127.     (if
  128.         (askbool
  129.             (prompt "AmigaOS 3.5 detected.\n\nWould you like to add Share to the tools-menu?\nThis will install a 'Share directory'.\nShare.menu will be added to WBStartup\n")
  130.             (help "Really?.")
  131.             (choices "Install" "Don't install")
  132.             (default 1)
  133.             )
  134.         (
  135.             (copyfiles
  136.                     (prompt "Copying menu")
  137.                     (source "Tango/Extras/Share/OS3_5/WBStartup/share.menu")
  138.                     (dest "sys:wbstartup/")
  139.             )
  140.             (copyfiles
  141.                     (prompt "Copying menu icon")
  142.                     (source "Tango/Extras/Share/OS3_5/WBStartup/share.menu.info")
  143.                     (dest "sys:wbstartup")
  144.             )
  145.             (copyfiles
  146.                     (prompt "Copying menu script")
  147.                     (source "Tango/Extras/Share/OS3_5/S/share.WB")
  148.                     (dest "S:")
  149.             )
  150.             (if
  151.                 (askbool
  152.                     (prompt "Would you like to add the menu now?\nElse the menu will be available after reboot.\n")
  153.                     (help "Really?.")
  154.                     (choices "Yes" "No")
  155.                     (default 1)
  156.                 ) 
  157.                     (run (cat "run sys:rexxc/rx sys:wbstartup/share.menu") )
  158.             )    
  159.         )
  160.     )
  161. )
  162. ;END Share 1.0 installation script
  163.  
  164. (set donow (askoptions (choices "Tango readme (text)" "Tango guide  (html)" "Open Tango drawer (OS3.5)" "Launch Tango" )
  165.               (prompt "\nInstallation is complete!\n\nSelect what to do now.\n")
  166.                     (help   "")
  167.                   (default 2)
  168.       )
  169. )
  170.  
  171. (if (IN donow 0) (run "run sys:utilities/multiview samba:tango/readme" ))
  172.  
  173.  
  174. (if (IN donow 1)
  175.     (if (> (exists ("c:openurl")) 0) (run "openurl file://localhost/samba:tango/guide.html"))
  176. )
  177.  
  178. ;RX "ADDRESS DOPUS.1;'lister new samba:'"
  179. ;RX "ADDRESS WORKBENCH;'ICON WINDOW root NAMES Samba: OPEN'" funkar inte då ikonen inte är på wb
  180.  
  181. (if (IN donow 2)
  182.       (run "Sys:rexxc/RX opendrawer.rexx")
  183.   )
  184.  
  185. (if (IN donow 3)
  186.       (run "samba:tango/tango" )
  187.   )
  188.  
  189. (exit (quiet))
  190.